﻿

Public Class ListaEspera
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset
        Dim dt As New DataTable

        param(0) = New ADODB.Parameter
        param(0).Name = "@DNIMedico"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = PersLOgueada.Dev_Dni
        param(0).Size = 10

        If Not Page.IsPostBack Then
            FG.culturaPaginas()
            'Cargo páginas anterior y actual!!!
            Var_Globales.Setea_paginas("ListaEspera.aspx")

            Rs = Datos.TraerTodos("traerTurnosListaEspera", param, "Lista de espera por medico")

            dt = FG.cargaUnDataTable(Rs)

            gvPacientes.DataSource = dt
            gvPacientes.DataBind()
        End If

    End Sub


    Protected Sub gvPacientes_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles gvPacientes.SelectedIndexChanged
        Dim row As GridViewRow = gvPacientes.SelectedRow
        Dim param(0) As ADODB.Parameter

        SacaCartelDeAViso(lblMensajesError)

        param(0) = New ADODB.Parameter
        param(0).Name = "@DNI"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = row.Cells(1).Text
        param(0).Size = 10

        If Not Datos.Modificar("ModificarTurnoListaEspera", param, "Mofificar turno para historia clinica") Then
            MuestraCartel("Error, no se ha podido cargar Historia Clinica. intente nuevamente", lblMensajesError)
            Exit Sub
        End If

        Var_Globales.Setea_dniPaciente(row.Cells(3).Text)
        Var_Globales.SeteaTipoVisita(TipoVisita.Visita)

        Response.Redirect("~/Historia_Clinico.aspx")

    End Sub
End Class